home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtscroller.bb2 < prev    next >
Text File  |  2002-01-27  |  2KB  |  60 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"opal.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11. foo.l=GTScroller(0,1,20,20,150,15,"Normal",#PLACETEXT_ABOVE,5,50)
  12. NPrint Hex$(foo)
  13.  
  14. foo.l=GTScroller(0,2,20,60,150,15,"Top",#PLACETEXT_ABOVE,5,50,20)
  15. NPrint Hex$(foo)
  16.  
  17. foo.l=GTScroller(0,3,20,100,150,15,"Disabled",#PLACETEXT_ABOVE|$40,5,50)
  18. NPrint Hex$(foo)
  19.  
  20. foo.l=GTScroller(0,4,20,140,150,15,"Immediate",#PLACETEXT_ABOVE|$80,5,50)
  21. NPrint Hex$(foo)
  22.  
  23. foo.l=GTScroller(0,5,20,180,150,15,"Relverify",#PLACETEXT_ABOVE|$4000,5,50)
  24. NPrint Hex$(foo)
  25.  
  26. foo.l=GTScroller(0,6,20,220,150,15,"Arrows",#PLACETEXT_ABOVE|$800,5,50)
  27. NPrint Hex$(foo)
  28.  
  29. foo.l=GTScroller(0,7,200,20,15,150,"Vertical",#PLACETEXT_RIGHT|$400,5,50)
  30. NPrint Hex$(foo)
  31.  
  32. GTNewLookProp On
  33. foo.l=GTScroller(0,8,20,260,150,15,"Newlookprop",#PLACETEXT_ABOVE,5,50)
  34. NPrint Hex$(foo)
  35.  
  36.  
  37. AddIDCMP #SCROLLERIDCMP
  38. Window 0,0,0,600,300,$100f,"jjlk",-1,-1
  39. DefaultOutput
  40. AttachGTList 0,0
  41. dragging.w=0
  42. While ev.l<>#IDCMP_CLOSEWINDOW
  43.     ev.l=WaitEvent
  44.     Select ev
  45.         Case #IDCMP_GADGETDOWN
  46.             NPrint "Gadget down event from gadget ",GadgetHit,", new position ",EventCode
  47.             dragging=1
  48.         Case #IDCMP_GADGETUP
  49.             NPrint "Gadget up event from gadget ",GadgetHit,", new position ",EventCode
  50.             dragging=0
  51.         Case #IDCMP_MOUSEMOVE
  52.             If dragging=1
  53.                 NPrint "Scroller ",GadgetHit," dragged to position ",EventCode
  54.             EndIf
  55.     End Select
  56. Wend
  57. DetachGTList 0
  58. End
  59.  
  60.